home *** CD-ROM | disk | FTP | other *** search
INI File | 1997-06-25 | 16.8 KB | 379 lines |
- [aliases]
- n0=/op /mode # +ooo $$1 $2 $3
- n1=/dop /mode # -ooo $$1 $2 $3
- n2=/j /join #$$1
- n3=/p /part #
- n4=/n /names #$$1
- n5=/w /whois $$1
- n6=/k /kick # $$1
- n7=/q /query $1 *2
- n8=/hop /part # | /join #$$1
- n9=/send /dcc send $1 $2
- n10=/chat /dcc chat $1
- n11=/ping /ctcp $$1 ping
- n12=/guiacolor /echo -s . | /echo 12 -s GUIA DE COLORES | /echo -s 1 0 1î1î 2î2î 3î3î 4î4î 5î5î 6î6î 7î7î 8î8î 9î9î 10î10î 11î11î 12î12î 13î13î 14î14î 15î15î
- n13=/t { /topic # *1 }
- n14=/c { /mode # *1 }
- n15=/onotice { /onotice [WallOPS/ $+ $chan $+ ] *1 }
- n16=/omsg { /omsg [WallOPS/ $+ $chan $+ ] *1 }
- n17=/F1 /dwhelp
- n18=/F2 /set %texto $?="Introduce aqui el mensaje:" | /say %texto
- n19=/F3 /set %texto $?="Introduce aqui el mensaje:" | /say %texto
- n20=/F4 /set -q %texto $$?="Introduce aqui el mensaje:" | /say $!
- n21=/F5 /set %texto $?="Introduce aqui el mensaje:" | /say %texto
- n22=/F6 /ht
- n23=/F7 /block
- n24=/F8 /ctext $$?
- n25=/F9 /fcaps $$?
- n26=/F10 /leet $$?
- n27=/F11 /upv $$?
- n28=/F12 /rcaps $$?
- n29=/CF1 /pi
- n30=/CF2 /let
- n31=/CF3 /cr
- n32=/CF4 /ca
- n33=/CF5 /caja
- n34=/CF6 /b1 $$?="Texto:"
- n35=/CF7 /b2 $$?="Texto:"
- n36=/CF8 /b3 $$?="Texto:"
- n37=/CF9 /b4 $$?="Texto:"
- n38=/CF10 /b5 $$?="Texto:"
- n39=/CF11 /ignore *!*@* | /timer6 0 30 /echo *** Todos estan siendo ignorados. Pulsa Ctrl+F12 para cancelar.
- n40=/CF12 /ignore -r *!*@* | /timer6 off
- n41=;---------------------------------------------------------- TIPOS DE TEXTO ----------------------------------------------
- n42=/block {
- n43= set %bk $?1="Introduce aqui el mensaje:" *2
- n44= %bk = $replace(%bk,a,[A])
- n45= %bk = $replace(%bk,b,[B])
- n46= %bk = $replace(%bk,c,[C])
- n47= %bk = $replace(%bk,d,[D])
- n48= %bk = $replace(%bk,e,[E])
- n49= %bk = $replace(%bk,f,[F])
- n50= %bk = $replace(%bk,g,[G])
- n51= %bk = $replace(%bk,h,[H])
- n52= %bk = $replace(%bk,i,[I])
- n53= %bk = $replace(%bk,j,[J])
- n54= %bk = $replace(%bk,k,[K])
- n55= %bk = $replace(%bk,l,[L])
- n56= %bk = $replace(%bk,m,[M])
- n57= %bk = $replace(%bk,n,[N])
- n58= %bk = $replace(%bk,o,[O])
- n59= %bk = $replace(%bk,p,[P])
- n60= %bk = $replace(%bk,q,[Q])
- n61= %bk = $replace(%bk,r,[R])
- n62= %bk = $replace(%bk,s,[S])
- n63= %bk = $replace(%bk,t,[T])
- n64= %bk = $replace(%bk,u,[U])
- n65= %bk = $replace(%bk,v,[V])
- n66= %bk = $replace(%bk,w,[W])
- n67= %bk = $replace(%bk,x,[X])
- n68= %bk = $replace(%bk,y,[Y])
- n69= %bk = $replace(%bk,z,[Z])
- n70= %bk = $replace(%bk,!,[!])
- n71= %bk = $replace(%bk,?,[?])
- n72= %bk = $replace(%bk,±,[╤])
- n73= %bk = $replace(%bk,#,[#])
- n74= %bk = $replace(%bk,/,[/])
- n75= say %bk
- n76= unset %bk
- n77=}
- n78=/pi {
- n79= set %pi $?1="Introduce aqui el mensaje:" *2
- n80= %pi = $replace(%pi,a,15a)
- n81= %pi = $replace(%pi,b,15b)
- n82= %pi = $replace(%pi,c,1c)
- n83= %pi = $replace(%pi,d,14d)
- n84= %pi = $replace(%pi,e,15e)
- n85= %pi = $replace(%pi,f,15f)
- n86= %pi = $replace(%pi,g,14g)
- n87= %pi = $replace(%pi,h,15h)
- n88= %pi = $replace(%pi,i,1i)
- n89= %pi = $replace(%pi,j,15j)
- n90= %pi = $replace(%pi,k,14k)
- n91= %pi = $replace(%pi,l,14l)
- n92= %pi = $replace(%pi,m,15m)
- n93= %pi = $replace(%pi,n,14n)
- n94= %pi = $replace(%pi,o,1o)
- n95= %pi = $replace(%pi,p,14p)
- n96= %pi = $replace(%pi,q,15q)
- n97= %pi = $replace(%pi,r,15r)
- n98= %pi = $replace(%pi,s,14s)
- n99= %pi = $replace(%pi,t,14t)
- n100= %pi = $replace(%pi,u,15u)
- n101= %pi = $replace(%pi,v,15v)
- n102= %pi = $replace(%pi,w,15w)
- n103= %pi = $replace(%pi,x,15x)
- n104= %pi = $replace(%pi,y,14y)
- n105= %pi = $replace(%pi,z,15z)
- n106= say %pi
- n107= unset %pi
- n108=}
- n109=/ht {
- n110= set %rk $?1="Introduce aqui el mensaje:" *2
- n111= %rk = $replace(%rk,a,¬)
- n112= %rk = $replace(%rk,b,▀)
- n113= %rk = $replace(%rk,c,ó)
- n114= %rk = $replace(%rk,d,╨)
- n115= %rk = $replace(%rk,e,Ω)
- n116= %rk = $replace(%rk,f,F)
- n117= %rk = $replace(%rk,g,G)
- n118= %rk = $replace(%rk,h,H)
- n119= %rk = $replace(%rk,i,í)
- n120= %rk = $replace(%rk,j,J)
- n121= %rk = $replace(%rk,k,K)
- n122= %rk = $replace(%rk,l,|)
- n123= %rk = $replace(%rk,m,M)
- n124= %rk = $replace(%rk,n,N)
- n125= %rk = $replace(%rk,o,░)
- n126= %rk = $replace(%rk,p,■)
- n127= %rk = $replace(%rk,q,Q)
- n128= %rk = $replace(%rk,r,«)
- n129= %rk = $replace(%rk,s,$)
- n130= %rk = $replace(%rk,t,T)
- n131= %rk = $replace(%rk,u,╡)
- n132= %rk = $replace(%rk,v,V)
- n133= %rk = $replace(%rk,w,W)
- n134= %rk = $replace(%rk,x,╫)
- n135= %rk = $replace(%rk,y,Ñ)
- n136= %rk = $replace(%rk,z,%)
- n137= %rk = $replace(%rk,±,~)
- n138= say %rk
- n139= unset %rk
- n140=}
- n141=/let {
- n142= set %let $?1="Introduce aqui el mensaje:" *2
- n143= %let = $replace(%let,a,a=)
- n144= %let = $replace(%let,b,b=)
- n145= %let = $replace(%let,c,c=)
- n146= %let = $replace(%let,d,d=)
- n147= %let = $replace(%let,e,e=)
- n148= %let = $replace(%let,f,f=)
- n149= %let = $replace(%let,g,g=)
- n150= %let = $replace(%let,h,h=)
- n151= %let = $replace(%let,i,i=)
- n152= %let = $replace(%let,j,j=)
- n153= %let = $replace(%let,k,k=)
- n154= %let = $replace(%let,l,l=)
- n155= %let = $replace(%let,m,m=)
- n156= %let = $replace(%let,n,n=)
- n157= %let = $replace(%let,o,o=)
- n158= %let = $replace(%let,p,p=)
- n159= %let = $replace(%let,q,q=)
- n160= %let = $replace(%let,r,r=)
- n161= %let = $replace(%let,s,s=)
- n162= %let = $replace(%let,t,t=)
- n163= %let = $replace(%let,u,u=)
- n164= %let = $replace(%let,v,v=)
- n165= %let = $replace(%let,w,w=)
- n166= %let = $replace(%let,z,z=)
- n167= %let = $replace(%let,x,x=)
- n168= %let = $replace(%let,y,y=)
- n169= say %let
- n170= unset %let
- n171=}
- n172=/ctext {
- n173= unset %ctext*
- n174= set %loop 0
- n175= set %ctext *1
- n176= :1
- n177= inc %loop 1
- n178= if ($mid(%loop,1,%ctext) == $chr(32)) { %ctext2 = %ctext2 $+ $chr(160) | goto 1 }
- n179= %ctext1 = $+ $rand(1,13) $+ $mid(%loop,1,%ctext)
- n180= if (%ctext2 == $null) { %ctext2 = %ctext1 }
- n181= else { %ctext2 = %ctext2 $+ %ctext1 }
- n182= ;echo %ctext4
- n183= if (%loop => $len(%ctext)) { say %ctext2 | unset %ctext* | unset %loop | halt }
- n184= goto 1
- n185=}
- n186=/fcaps {
- n187= set %final $$?1="Introduce aqui el mensaje:" *2
- n188= %final = "" | %i = 0 | :next | inc %i | %word = $token(%i,32,*1) | if (%word == $null) { say %final | halt }
- n189= %len = $len(%word) | %firstpart = $left(1,%word) | %firstpart = $upper(%firstpart) | %temp = %len - 1 | %rest = $right(%temp,%word)
- n190= if (%rest == $null) { %final = %final %word | goto next } | %word = %firstpart $+ %rest | %final = %final %word | goto next
- n191=}
- n192=/password {
- n193= set %etalk *1
- n194= %etalk = $replace(%etalk,9,a) | %etalk = $replace(%etalk,$,b) | %etalk = $replace(%etalk,%,c) | %etalk = $replace(%etalk,&,d) | %etalk = $replace(%etalk,7,e) | %etalk = $replace(%etalk,2,f) | %etalk = $replace(%etalk,*,g) | %etalk = $replace(%etalk,<,h) | %etalk = $replace(%etalk,«,i)
- n195= %etalk = $replace(%etalk,>,j) | %etalk = $replace(%etalk,ú,k) | %etalk = $replace(%etalk,º,l) | %etalk = $replace(%etalk,?,m) | %etalk = $replace(%etalk,:,n) | %etalk = $replace(%etalk,4,o) | %etalk = $replace(%etalk,8,p) | %etalk = $replace(%etalk,!,q) | %etalk = $replace(%etalk,+,r)
- n196= %etalk = $replace(%etalk,=,s) | %etalk = $replace(%etalk,τ,t) | %etalk = $replace(%etalk,1,u) | %etalk = $replace(%etalk,-,v) | %etalk = $replace(%etalk,0,w) | %etalk = $replace(%etalk,╖,x) | %etalk = $replace(%etalk,╡,y) | %etalk = $replace(%etalk,[,z) | echo -s 4 %etalk
- n197=}
- n198=/leet {
- n199= set %leettext $$?1="Introduce aqui el mensaje:" *2
- n200= %leettext = $upper(*1) | %leettext = $replace(%leettext,A,a) | %leettext = $replace(%leettext,E,e) | %leettext = $replace(%leettext,I,i) | %leettext = $replace(%leettext,O,o) | %leettext = $replace(%leettext,U,u) | %leettext = $replace(%leettext,Y,y) | say %leettext
- n201=}
- n202=/rcaps {
- n203= set %rcapstext $$?1="Introduce aqui el mensaje:" *2
- n204= %rcapstext = "" | %i = 0 | :next | inc %i | if (%i > $len(*1)) { say %rcapstext | halt } | if ($asc($mid(%i,1,*1)) = 32) { %rcapstext = %rcapstext $+ á | goto next } | if ($rand(1,2) = 1) { %rcapstext = %rcapstext $+ $upper($mid(%i,1,*1)) | goto next } | else { %rcapstext = %rcapstext $+ $lower($mid(%i,1,*1)) | goto next }
- n205=}
- n206=/upv {
- n207= set %leettext $$?1="Introduce aqui el mensaje:" *2 | %leettext = $lower(*1) | %leettext = $replace(%leettext,a,A) | %leettext = $replace(%leettext,e,E) | %leettext = $replace(%leettext,i,I) | %leettext = $replace(%leettext,o,O) | %leettext = $replace(%leettext,u,U) | %leettext = $replace(%leettext,y,Y) | say %leettext | unset %leettext
- n208=}
- n209=/cr {
- n210= set %cn.red $$?1="Introduce aqui el mensaje:" *2
- n211= %cn.red = $replace(%cn.red,a,a4)
- n212= %cn.red = $replace(%cn.red,e,e4)
- n213= %cn.red = $replace(%cn.red,i,i4)
- n214= %cn.red = $replace(%cn.red,o,o4)
- n215= %cn.red = $replace(%cn.red,u,u4)
- n216= %cn.red = $replace(%cn.red,y,y4)
- n217= say %cn.red
- n218= unset %cn.red
- n219=}
- n220=/ca {
- n221= set %cn.blue $$?1="Introduce aqui el mensaje:" *2
- n222= %cn.blue = $replace(%cn.blue,a,a12)
- n223= %cn.blue = $replace(%cn.blue,e,e12)
- n224= %cn.blue = $replace(%cn.blue,i,i12)
- n225= %cn.blue = $replace(%cn.blue,o,o12)
- n226= %cn.blue = $replace(%cn.blue,u,u12)
- n227= %cn.blue = $replace(%cn.blue,y,u12)
- n228= say %cn.blue
- n229= unset %cn.blue
- n230=}
- n231=;---------------------------------------------- CONTADOR DE TIEMPO -----------------------------------------------
- n232=/timeon { timer2050 0 1 /seconds }
- n233=/seconds {
- n234= inc %seconds 1 | titlebar DarK WizArD v4.1 lleva %hours horas, %minutes minutos, %seconds segundos conectado.
- n235= if (%seconds = 60) { %seconds = 0 | inc %minutes 1 }
- n236= if (%minutes = 60) { %minutes = 0 | inc %hours 1 | dong }
- n237=}
- n238=/timeoff { timer2050 off }
- n239=/dong { /say $me lleva conectado %hours horas, %minutes minutos y %seconds segundos en el IRC. :) | return 1 }
- n240=; ------------------------------ WORD KICK --------------------------------------------------------------------------------
- n241=/wk {
- n242= .enable #wordkick
- n243= set %wordkick on
- n244= %wk = *1
- n245= echo 2 -s WoRd-KiCK Activado. El WoRd-KiCK actual es: $+ %wk $+
- n246=}
- n247=/wkoff {
- n248= .disable #wordkick
- n249= set %wordkick off
- n250= unset %wk
- n251= echo 2 -s WoRd-KiCK Desactivado.
- n252=}
- n253=; ------------------------------ SALUDO AUTOMATICO -------------------------------------------------------------
- n254=/saludo {
- n255= .enable #saludo
- n256= set %saludo on
- n257= echo 2 -s Saludo Automatico Activado.
- n258=}
- n259=/saludoff {
- n260= .disable #saludo
- n261= set %saludo off
- n262= echo 2 -s Saludo Automatico Desactivado.
- n263=}
- n264=; -------------------------- MENSAJES A OP'S Y NO OP'S ---------------------------------------------------------
- n265=/on {
- n266= %onick = 0 | %onicks = $opnick(0,#)
- n267= if (%onicks == 0) { echo 5 No hay gente con 4,1OP'S en # | halt }
- n268= if (%onicks > 0) { echo 1 -> OP'S en # $+ :OPS: $+ # $+ : *1 }
- n269= :next
- n270= inc %onick 1
- n271= if (%onick > %onicks) { goto end }
- n272= :msg
- n273= raw -q notice $opnick(%onick,#) :OPS: *1
- n274= goto next
- n275= :end
- n276= halt
- n277=}
- n278=/non {
- n279= %nonick = 0 | %nonicks = $nopnick(0,#)
- n280= if (%nonicks == 0) { echo 5 No hay gente sin 4,1OP'S en # | halt }
- n281= if (%onicks > 0) { echo 1 -> NO-OPS en # $+ :NO-OPS: $+ # $+ : *1 }
- n282= :next
- n283= inc %nonick 1
- n284= if (%nonick > %nonicks) { goto end }
- n285= :msg
- n286= raw -q notice $nopnick(%nonick,#) :NON-OPS: *1
- n287= goto next
- n288= :end
- n289= halt
- n290=}
- n291=; ----------------------------------------- AYUDA -------------------------------------------------------------------------
- n292=/dwhelp play -spctdwhelp $me $mircdir $+ sistema\dwhelp.txt 300
- n293=; ---------------------------------------- HOLA AL CANAL -------------------------------------------------------------
- n294=/hola {
- n295= /set %hugnumber 1
- n296= /set %hugtotal ""
- n297= /set %totalnicks $nick(0,#)
- n298= /set %presentnicks 1
- n299= :start
- n300= /set %hugnicks $nick(%hugnumber,#)
- n301= if (%presentnicks = %totalnicks) /me saluda a %hugtotal y %hugnicks !!! <òHola!ò> ;)
- n302= else {
- n303= /set %hugtotal %hugtotal %hugnicks $+ ,
- n304= /inc %hugnumber 1
- n305= /inc %presentnicks 1
- n306= goto start
- n307= }
- n308= goto end
- n309= :end
- n310=}
- n311=; --------------------------------- VENTANA DE INFORMCACION -------------------------------------------------
- n312=/infowin {
- n313= if ($window(@DarKWizArD-Info) != $null) { /window -ro @DarKWizArD-Info | halt }
- n314= /window -aro @DarKWizArD-Info
- n315= window -l @DarKWizArD-Info 20 90 315 160
- n316= .timer443 -o 0 1 /infoup
- n317= .aline @DarKWizArD-Info 6 Bienvenido a DarK WizArD: $me
- n318= .aline @DarKWizArD-Info 1Hora:12 $time 1(12 $+ $day $+ 1)
- n319= .aline @DarKWizArD-Info 1Fecha:12 $date 1(4DD1/4MM1/4YY1)
- n320= .aline @DarKWizArD-Info 1On-Line:12 $duration($idle)
- n321= if ($online != 0) { .aline @DarKWizArD-Info 1Tiempo Total:12 $duration($online) }
- n322= else { .aline @DarKWizArD-Info 1Tiempo Total:12 Detenido }
- n323= if ($away == $true) .aline @DarKWizArD-Info Estoy Away: Yes
- n324= else .aline DarKWizArD-Info 1Estoy Away:12 No
- n325= .aline @DarKWizArD-Info 1Nick / IP:12 $me 1/12 $ip
- n326= if ($server == $null) .aline @DarKWizArD-Info 1Server:12 No Conectado
- n327= else .aline @DarKWizArD-Info 1Server:12 $Server 1por12 $port
- n328=}
- n329=/infoup {
- n330= if $window(@DarKWizArD-Info) == $null { echo 2 Ventana de estado cerrada | .timer443 off | halt }
- n331= {
- n332= .rline @DarKWizArD-Info 1 6 Bienvenido a DarK WizArD: $me
- n333= .rline @DarKWizArD-Info 2 1Hora:12 $time 1(12 $+ $day $+ 1)
- n334= .rline @DarKWizArD-Info 3 1Fecha:12 $date
- n335= .rline @DarKWizArD-Info 4 1On-Line:12 $duration($idle)
- n336= if ($online != 0) { .rline @DarKWizArD-Info 5 1Tiempo Total:12 $duration($online) }
- n337= else { .rline @DarKWizArD-Info 5 1Tiempo Total:12 Desactivado }
- n338= if ($away == $true) .rline @DarKWizArD-Info 6 Estoy Away: Si
- n339= else .rline @DarKWizArD-Info 6 1Estoy Away:12 No
- n340= .rline @DarKWizArD-Info 7 1Nick / IP:12 $me 1/12 $ip
- n341= if ($server == $null) .rline @DarKWizArD-Info 8 1Servidor:12 No Conectado
- n342= else .rline @DarKWizArD-Info 8 1Servidor:12 $Server 1por12 $port
- n343= }
- n344=}
- n345=; ------------------------- PROTECCION DE TOPIC --------------------------------------------------------------
- n346=/tpon /topic # $?="Escribe el topic:"$+ | /set %tp $! | /set %chan $chan | /say 4DarK WizArD Proteccion de Topic Activado. | /enable #topic
- n347=/tpoff /disable #topic | /say 4DarK WizArD Proteccion de Topic Desactivado.
- n348=; ------------------------- CONTADOR DE CLONOS ---------------------------------------------------------------
- n349=/clonecount {
- n350= set %clonechan #
- n351= set %Clones 0
- n352= unset %Address
- n353= set %clonedisplay $$?="Elige entre: echo o msg ?"
- n354= if %clonedisplay == echo { set %clonedisplay echo %clonechan }
- n355= if %clonedisplay == msg { set %clonedisplay msg %clonechan }
- n356= %clonedisplay 12Contando 6Clonos 10en12 %clonechan
- n357= enable #clonecount
- n358= who %clonechan
- n359=}
- n360=; ---------- EFECTOS CAJA 3D -------------------
- n361=/caja {
- n362= say 7,7 . $+ $$?="Texto:" $+ ..
- n363= say 7,7 . $+ $$! $+ ..14,14 .
- n364= say 7,7 .8,7 $+ $$! $+ 7,7 .14,14 .
- n365= say 7,7 . $+ $$! $+ ..14,14 .
- n366= say 7,7 . $+ $$! $+ ..14,14 .
- n367= say ╖ 14,14 ... $+ $$! $+
- n368=}
- n369=/b1 /say 2,2 *1 $+ ! | /say 2,2 *1 14,14!. | /say 8,2 *1 14,14!. | /say 2,2 *1 14,14!. | /say 2,2 *1 14,14!. | /say ╖14,14 *1 $+ !.
- n370=/b2 /say 3,3 *1 $+ ! | /say 3,3 *1 14,14!. | /say 8,3 *1 14,14!. | /say 3,3 *1 14,14!. | /say 3,3 *1 14,14!. | /say ╖14,14 *1 $+ !.
- n371=/b3 /say 4,4 *1 $+ ! | /say 4,4 *1 14,14!. | /say 8,4 *1 14,14!. | /say 4,4 *1 14,14!. | /say 4,4 *1 14,14!. | /say ╖14,14 *1 $+ !.
- n372=/b4 /say 8,8 *1 $+ ! | /say 8,8 *1 14,14!. | /say 3,8 *1 14,14!. | /say 8,8 *1 14,14!. | /say 8,8 *1 14,14!. | /say ╖14,14 *1 $+ !.
- n373=/b5 /say 9,9 *1 $+ ! | /say 9,9 *1 14,14!. | /say 1,9 *1 14,14!. | /say 9,9 *1 14,14!. | /say 9,9 *1 14,14!. | /say ╖14,14 *1 $+ !.
- n374=/b6 /say 11,11 *1 $+ ! | /say 11,11 *1 14,14!. | /say 8,11 *1 14,14!. | /say 11,11 *1 14,14!. | /say 11,11 *1 14,14!. | /say ╖14,14 *1 $+ !.
- n375=/b7 /say 12,12 *1 $+ ! | /say 12,12 *1 14,14!. | /say 8,12 *1 14,14!. | /say 12,12 *1 14,14!. | /say 12,12 *1 14,14!. | /say ╖14,14 *1 $+ !.
- n376=/b8 /say 13,13 *1 $+ ! | /say 13,13 *1 14,14!. | /say 8,13 *1 14,14!. | /say 13,13 *1 14,14!. | /say 13,13 *1 14,14!. | /say ╖14,14 *1 $+ !.
-